home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / CHECK BOOK INSTR.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  59 lines
  1. 1000  REM CHECK BOOK INSTRUCTIONS
  2. 1010 :
  3. 1020  DIM A$(10):D$ =  CHR$(4): TEXT : HOME 
  4. 1030 V = 2:C$ = "** CKECK BOOK BALANCE **": GOSUB 1550
  5. 1040 V = 3:C$ = "ROBERT B. SHEN": GOSUB 1550: PRINT 
  6. 1050 A$(1) = "THIS PROGRAM IS DESIGNED TO HELP YOU BALANCE YOUR CHECK BOOK SPECIALLY UNDER ONE OF THE FOLLOWING CONDITIONS:"
  7. 1060 A$(2) = "WHEN YOU HAVE A LOT OF TRANSACTIONS EACH MONTH."
  8. 1070 A$(3) = "WHEN BOTH HUSBAND AND WIFE USE SAME CHECK ACCOUNT AND OCCASIONLLY ONE FORGETS TO UPDATE THE CHECK BOOK RECORD."
  9. 1080 A$(4) = "WHEN YOU LIKE TO USE YOUR APPLE TO DO SOMETHING BESIDES PLAY GAMES."
  10. 1090 :
  11. 1100 SP = 3:EP = 39:K = 4: GOSUB 1330: REM  PAGE ONE
  12. 1110 :
  13. 1120 A$(1) = "THE GENERAL FEATURE OF THE PROGRAM IS:"
  14. 1130 A$(2) = "ONCE A WEEK OR SO YOU ENTER ALL YOU CHECK AND DEPOSIT RECORDS TO THE COMPUTER AND SAVE ON DISK."
  15. 1140 A$(3) = "WHEN THE BANK STATEMENT COMES, YOU ENTER ALL CANCELLED OR CASHED CHECK AND DEPOSIT RECORDS BY THE CHECK NUMBER (USE 3 DIGITS)."
  16. 1150 A$(4) = "IF THERE IS ANY FORGOTTEN OR MISTAKEN RECORD, THE PROGRAM WILL INDICATE. THEN YOU CAN RE-ENTER OR MAKE CHANGE."
  17. 1160 A$(5) = "FINALLY, THE COMPUTER WILL LIST ALL BALANCES. AND YOU SAVE ALL CASHED AND UNCASHED DATA ON DISK FOR NEXT MONTH."
  18. 1170 :
  19. 1180 K = 5: GOSUB 1330: REM  PAGE TWO
  20. 1190 :
  21. 1200 A$(1) = "THE PROGRAM DETAIL:"
  22. 1210 A$(2) = "THE FIRST QUESTION IS 'LOAD COMM.CARD (Y/N):' WHICH IS FOR PRINTER USING COMMUNICATION CARD."
  23. 1220 A$(3) = "MOST OF COMMANDS ARE SELF EXPLAINED AND YOU CAN USE 'TEST.DATA' TO SEE HOW IT WORKS BY LOADING DATA FROM DISK AND LISTING ALL TEST RECORDS. ALWAYS ANSWER '0' TO EXIT."
  24. 1230 A$(4) = "'CREATE NEW FILE' YOU ONLY USE IT ONCE TO ENTER BALANCE FOR A NEW ACCOUNT."
  25. 1240 A$(5) = "IN THE LIST 'WDR/DEP*', THE * INDICATES THE VALUE IS FOR DEPOSIT; IN THE 'BAL' (BALANCE), THE * INDICATES THE BALANCE IS NEGATIVE."
  26. 1250 :
  27. 1260 K = 5: GOSUB 1330: REM  PAGE THREE
  28. 1270 :
  29. 1280  PRINT 
  30. 1290  PRINT D$;"RUN CHECK BOOK BALANCE"
  31. 1300  END 
  32. 1310 :
  33. 1320  REM  PRINT A PAGE
  34. 1330  FOR J = 1 TO K
  35. 1340  IF J >1  THEN  PRINT J -1;
  36. 1350 P$ = A$(J): GOSUB 1390: PRINT 
  37. 1360  NEXT J
  38. 1370 V = 22:C$ = "HIT ANY KEY TO CONTINUE": GOSUB 1550
  39. 1380  GET S$: TEXT : HOME : RETURN 
  40. 1390  REM PRINT STRING FORMAT
  41. 1400 :
  42. 1410  LET L1 = EP -SP +2
  43. 1420  LET L0 =  LEN(P$)
  44. 1430  IF L0 <L1  THEN  HTAB SP: PRINT P$: RETURN 
  45. 1440  FOR L2 = L1 TO 1  STEP  -1
  46. 1450  IF  MID$ (P$,L2,1) = " "  THEN 1470
  47. 1460  NEXT L2
  48. 1470  HTAB SP: PRINT  LEFT$(P$,L2 -1)
  49. 1480  LET P$ =  RIGHT$(P$,L0 -L2): GOTO 1420
  50. 1490 :
  51. 1500  REM SP-START POINT
  52. 1510  REM EP-END POINT
  53. 1520  REM P$ WILL BE DESTROIED
  54. 1530  REM L0,L1,L2 ALSO USED
  55. 1540 :
  56. 1550  VTAB V: HTAB 20 - LEN(C$)/2
  57. 1560  PRINT C$: RETURN 
  58. 1570  REM  ROBERT B. SHEN
  59. 1580  REM  312-438-4728